home *** CD-ROM | disk | FTP | other *** search
/ A Million Times Begging / A Million Times Begging - Disc 2.iso / pc / data / main.dir / 00016.ls < prev    next >
Encoding:
Text File  |  1998-05-14  |  300 b   |  23 lines
  1. on mouseDown
  2.   puppetSound("click")
  3.   updateStage()
  4. end
  5.  
  6. on mouseUp
  7.   global kvol
  8.   case the clickOn - 93 of
  9.     1:
  10.       set kvol to 0
  11.     2:
  12.       set kvol to 1
  13.     3:
  14.       set kvol to 3
  15.     4:
  16.       set kvol to 5
  17.     5:
  18.       set kvol to 7
  19.   end case
  20.   set the soundLevel to kvol
  21.   cnfview()
  22. end
  23.